﻿Imports System.Windows.Forms

Public Class FormAtteindre
    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.Close()

    End Sub

    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub

    Private Sub FormAtteindre_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        Me.NumericUpDownLigne.Focus()
    End Sub

    Private Sub NumericUpDownLigne_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NumericUpDownLigne.ValueChanged
        Me.TrackBar1.Value = Me.NumericUpDownLigne.Value
    End Sub

    Private Sub TrackBar1_Scroll(sender As System.Object, e As System.EventArgs) Handles TrackBar1.Scroll
        Me.NumericUpDownLigne.Value = Me.TrackBar1.Value
    End Sub
End Class
